home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / animtext.arc / ANIMATE.PRG
Encoding:
Text File  |  1986-05-09  |  3.0 KB  |  84 lines
  1. *
  2. *                         the stop column variable   September 6, 1985
  3. *                         added in this version
  4. *                         Updated and converted
  5. *                         to dBASE III by
  6. *
  7. *                         can be compiled
  8. *                         with "Clipper"
  9. *
  10. *                          Peter A. Andres   dBASE III version
  11. *                          (201) 852-6301
  12. *
  13. *                          with thanks to
  14. *                          Michael Cohn      dBASE II  version
  15. *                         (301) 987-5914
  16. *                               or
  17. *                     BHEC RCPM (eves/wknds)
  18. *                         (301) 661-4447
  19. *
  20. *
  21. *       This is a routine to animate a character string
  22. *       across any line of a screen using dBASE III
  23. *       It may be useful during a sign-on routine
  24. *       displaying the copyright, or some such...
  25. *
  26. *       This module can be run as a stand-alone demo
  27. *       as is.   Just type     DO ANIDB3
  28. *
  29. *       To call this routine from another
  30. *       dBASE III command file, delete the first
  31. *       "accept" statement, and the first "input"
  32. *       statement in this file.
  33. *
  34. *  INSTRUCTIONS FOR USE:
  35. *
  36. *         add these lines to your main.prg file:
  37. *
  38. *               STORE "WHATEVER CHR STRING, ETC." TO anline
  39. *
  40. *               STORE 12 TO mline    * (or whatever line
  41. *                                    *  number you want
  42. *                                    * the animation to
  43. *                                    * appear on)
  44. *
  45. *               STORE 40 TO scol     * (or whatever column
  46. *                                    *  number you want
  47. *                                    * the animation to
  48. *                                    * stop at)
  49. *
  50. *               DO animate
  51. *
  52. CLEAR
  53. SET TALK OFF
  54. ACCEPT "What character string do you want to animate?  " TO anline
  55. CLEAR
  56. INPUT "Which line (1-23) do you want to animate on?  " TO mline
  57. CLEAR
  58. INPUT "Which column (1-80) do you want to stop at?     " TO scol
  59. CLEAR
  60. *
  61. *=========================> To use as a sub-routine or sub-program
  62. *                         > delete or comment out all previous
  63. *                         > commands and use the instructions
  64. *                         > at the top. To run as a standalone
  65. *=========================> demo just DO ANIDB3
  66. *
  67. STORE LEN(anline) TO mlen
  68. STORE mlen TO mstart
  69. DO WHILE mstart > 0
  70.   @ mline-1,0 SAY SUBSTR(anline,mstart)
  71.   STORE mstart - 1 TO mstart
  72. ENDDO
  73. STORE " " TO mspace
  74. STORE 1 TO mcount
  75. DO WHILE mcount < scol
  76.   IF mcount > scol-mlen
  77.     EXIT
  78.   ENDIF
  79.   @ mline-1,0 SAY mspace + SUBSTR(anline,1,mlen)
  80.   STORE mspace + " " TO mspace
  81.   STORE mcount + 1 TO mcount
  82. ENDDO
  83. RETURN
  84. O°T|]:`ƒ╥ƒ¿τíRL∞¢█oσ▌±ô_ä÷╘+Ñæ"ßçX½V┬ÿÜ2É[ ∩!orⁿ▌±ô_ä≈╙Ñï╡=9@J╩>╬²┼óα;sⁿ▌±ô_ä≈ô?m5y9░ÿ[Y\Ñå∙J▒9╤ó╟▀²?∙Ex?;Æ╛2░j0¼■∩α╘&ö-zⁿ▌±ô_ä╖jg▒é3áδq█╖╡║Aâ√2N-zⁿ▌±ô_ä"K╬σhë┬,ƒg┌┼a└│/π╘ó╟▀²?∙E(▓°1ªA  rWPY.·√2N-zⁿ▌±ô_ä"Kc"æ╦Fαe╝% `